home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / VSet2.0 / Src / vparse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-20  |  3.2 KB  |  122 lines  |  [TEXT/????]
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF Vset release 2.1
  4. *                    May 1991
  5. *
  6. * NCSA HDF Vset release 2.1 source code and documentation are in the public
  7. * domain.  Specifically, we give to the public domain all rights for future
  8. * licensing of the source code, all resale rights, and all publishing rights.
  9. * 
  10. * We ask, but do not require, that the following message be included in all
  11. * derived works:
  12. * 
  13. * Portions developed at the National Center for Supercomputing Applications at
  14. * the University of Illinois at Urbana-Champaign.
  15. * 
  16. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  17. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  18. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  19. * 
  20. *****************************************************************************
  21. * Likkai Ng May 1991 NCSA
  22. *
  23. * vparse.c
  24. * Part of the HDF VSet interface.
  25. *
  26. ************************************************************************/
  27.  
  28. #include <stdio.h>
  29. #include "vg.h"
  30.  
  31. #ifdef SUN
  32. #include <ctype.h> 
  33. #endif
  34.  
  35. #define ISCOMMA(c) ( (c==',')?1:0)
  36.  
  37. /* ------------------------------------------------------------------ */
  38.  
  39. /*
  40. ** Given a string (attrs) , the routine parses it into token strings,
  41. ** and returns a ptr (attrv) to an array of ptrs where the tokens 
  42. ** are stored.  The no of tokens are returned in attrc.
  43. **
  44. ** Currently used only by routines that manipulate field names.
  45. ** As such each field string is truncated to a max length of
  46. ** FIELDNAMELENMAX (as defined in vg.h). For most cases, this
  47. ** truncation doesn't happen because FIELDNAMELENMAX is a big number.
  48. **
  49. ** RETURN -1 if error.
  50. ** RETURN 1 if ok.
  51. **
  52. ** Current implementation: all strings inputs converted to uppercase.    
  53. ** tokens must be separated by COMMAs.
  54. **
  55. ** Tokens are stored in static area sym , and pointers are returned
  56. ** to calling routine. Hence, tokens must be used before next call 
  57. ** to scanattrs.
  58. **
  59. */
  60.  
  61. PRIVATE     char*     symptr[50];
  62. PRIVATE     char         sym[50][FIELDNAMELENMAX+1];
  63. PRIVATE    int         nsym;
  64.  
  65. int scanattrs (attrs,attrc,attrv)       /*@@*/
  66.  
  67. char    *attrs;                /* field string (input) */
  68. int    *attrc;                /* # of fields (output) */
  69. char    ***attrv;            /* array of char ptrs to fields (output) */
  70. {
  71.     char *s, *s0, *ss;
  72.     int i,slen,len;
  73.  
  74.     s = attrs;
  75.     slen = strlen(s);
  76.     nsym = 0;
  77.  
  78.     s0 = s;
  79.     for (i=0;i<slen;i++,s++)
  80.         if ( ISCOMMA(*s) ) {
  81.             len = s-s0; 
  82.             if (len<=0) return(FAIL);
  83.             /* save that token */
  84.             ss = symptr[nsym] = sym[nsym]; 
  85.             nsym++;
  86.  
  87.             if ( len > FIELDNAMELENMAX) len = FIELDNAMELENMAX;
  88.             strncpy(ss, s0, len );
  89.             ss[len] = '\0';
  90.  
  91.             s0 = s+1;
  92.         }
  93.  
  94.     /* save the last token */
  95.     len = s-s0; 
  96.     if (len<=0) return(FAIL);
  97.     ss = symptr[nsym] = sym[nsym]; 
  98.     nsym++;
  99.  
  100.     if ( len > FIELDNAMELENMAX) len = FIELDNAMELENMAX;
  101.     strncpy(ss, s0, len);
  102.     ss[len] = '\0';
  103.  
  104.     /* convert all fields tokens to uppercase */
  105.     for (i=0;i<nsym;i++) {
  106.         s = symptr[i];
  107.         while(*s!='\0') {
  108.             if (*s >='a' && *s <='z') *s=toupper(*s);
  109.             s++;
  110.         }
  111.     }
  112.  
  113.     symptr[nsym] = NULL;
  114.     *attrc = nsym;
  115.     *attrv = (char**) symptr;
  116.  
  117.     return(1); /* ok */
  118.  
  119. } /* scanattrs */
  120.  
  121. /* ------------------------------------------------------------------ */
  122.